home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
utility
/
ds0251
/
bat_test.bat
< prev
next >
Wrap
DOS Batch File
|
1990-06-04
|
3KB
|
92 lines
@ECHO OFF
bat_cof
bat_cls
bat_dbox 0 0 2 79 1 67
bat_zsay 1 53 *** BAT_TEST.BAT ***
bat_sdat 1 65 4
bat_say 1 73 2 /
bat_stim 1 74 3
bat_lsay 8 0 29 Dies ist eine DEMO
bat_lsay 9 19 30 die Ihnen die Möglichkeiten
bat_lsay 10 49 31 der BAT_*** Utilities vorstellt
bat_vsay 14 1 31 O V I
bat_vsay 14 78 31 O V I
bat_zsay 15 29 Festgestellte Geräteausstattung
bat_zsay 16 30 -------------------------------
bat_cpu
IF ERRORLEVEL 32 GOTO P386
IF ERRORLEVEL 16 GOTO P286
IF ERRORLEVEL 8 GOTO N386
IF ERRORLEVEL 4 GOTO N286
IF ERRORLEVEL 2 GOTO N186
IF ERRORLEVEL 1 GOTO N86
GOTO BAD
:P386
bat_say 18 25 33 CPU: 80386 (Protect Mode)
GOTO EX
:P286
bat_say 18 20 33 CPU: 80286 (Protect Mode)
GOTO EX
:N386
bat_say 18 20 33 CPU: 80386
GOTO EX
:N286
bat_say 18 20 33 CPU: 80286
GOTO EX
:N186
bat_say 18 20 33 CPU: 80186
GOTO EX
:N86
bat_say 18 20 33 CPU: 8086/88
GOTO EX
:BAD
bat_say 18 20 33 CPU: unbekannt
GOTO EX
:EX
REM +++++++++ W I C H T I G +++++++
REM
REM bei der folgenden Lösung der Abfrage des Errorlevels
REM ist es nicht möglich, einen unbekannten Video Adapter
REM (Errorlevel 0) zu erkennen. Das liegt daran, das wenn
REM Errorlevel 1, 2, 3 oder 4 ist, wird sofort die Funktion
REM bat_say aufgerufen sodaß der Errorlevel dann auf 0 oder
REM 1 gesetzt wird (durch die Funktion bat_say).
REM
REM Man kann natürlich den Umweg über goto wählen, was
REM allerdings in den meisten Fällen nur ein unnötiger
REM Zeitverlust wäre.
REM
bat_vid
if errorlevel 4 bat_say 18 49 25 Video: VGA
if errorlevel 3 bat_say 18 49 25 Video: EGA
if errorlevel 2 bat_say 18 49 25 Video: CGA
if errorlevel 1 bat_say 18 49 25 Video: Monochrom Adapter
set bat_=nicht vorhanden
bat_iems
if errorlevel 1 SET bat_=vorhanden
bat_zsay 20 25 Expanded Memory ist %bat_%
set bat_=
bat_dbox 22 0 24 79 2 24
bat_say 23 25 24 *** Press any key to continue ***
REM bat_sscr *** wenn Probleme dann diese Funktion benutzen ***
bat_sbuf
if '%1' == 'TEST' goto next
bat_tone 220 1024 247 1024 262 1024 294 1024 330 1024 349 1024 392 1024
:next
bat_get
cls
bat_zsay 3 143 Dies ist die Funktion bat_wait
bat_zsay 10 31 B A T _ *** - Batch File Utilities
bat_zsay 11 79 Version 1.01
bat_zsay 13 31 (C) Copyright 1990 Klaus Overhage
bat_blk 15 25 31 OVI
bat_zsay 24 79 Die Funktion BAT_BLK wirkt besser, wenn das richtige Attribute verwendet wird
bat_wait 150
cls
rem bat_rscr *** wenn Probleme dann diese Funktion benutzen ***
bat_rbuf
bat_cpos 24 0
IF ERRORLEVEL 1 bat_zsay 24 7 Parameterfehler !!!!
if exist temp.scr del temp.scr
bat_con